home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / mfix0712.zip / MBS10712.FIX < prev    next >
Text File  |  1992-07-12  |  1KB  |  32 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against E:\RBBS\TEMP\RBBSSUB1.BAS to produce E:\RBBS\CHAT\RBBSSUB1.BAS
  3. * E:\RBBS\TEMP\RBBSSUB1.BAS:  Date 7-7-1992  Size 65456 bytes
  4. * ------------[ Created 07-12-1992 19:56:54 ]------------
  5. * REPLACING old line(s) by new
  6. 60149 ZSubParm = 1
  7.      ZOutTxt$ = "What file(s) to Type, R)elist or [ENTER] to quit" 
  8.      CALL TGet
  9. IF ZSubParm = -1 THEN _
  10.  EXIT SUB
  11.       ZWasB = 1
  12.        IF ZWasQ = 0 THEN _
  13.         GOTO 60140
  14. IF ZUserIn$ = "R" or ZUserIn$ = "r" THEN _
  15.    CALL BufFile (ZArcWork$,WasX) : _
  16. GOTO 60149
  17.        LastArc = ZWasQ
  18.        FirstArc =ZWasB
  19. FOR ArcIndex = FirstArc TO LastArc
  20. WasZ$ = ZUserIn$(ArcIndex)
  21.    CALL AllCaps (WasZ$)  
  22.   IF INSTR(WasZ$,"*") OR INSTR(WasZ$,"?") THEN _
  23. * ------[ first line different ]------
  24.     CALL QuickTPut1 ("Sorry Wildcards NOT allowed !") : _   'Pe 10/03/91
  25.      GOTO 60149
  26.  CALL BreakFileName (WasZ$,Drive$,Prefix$,Ext$,ZFalse)
  27. IF EXT$ = "" THEN _                                    'Pe 08/14/91
  28.    GOTO 60150                                          'Pe 08/14/91
  29.  IF INSTR("ZIP,ARC,LZH,ZOO,PAK,ARJ,DWC,BIN,LIB,OBJ,COM,EXE,PIC,GIF,",Ext$+",") > 0 THEN _  'Pe 08/04/91
  30.      CALL QuickTPut1 ("Sorry, only ASCII files can be Typed") :_  'Pe 10/03/91
  31.          GOTO 60149
  32.